home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / VisuNetlist.AmiCAD < prev    next >
Text File  |  2000-11-12  |  992b  |  34 lines
  1. /* Chargement d'une netlist à l'aide d'Amitex
  2.    Version 1.00: 22 février 1999
  3.    Version 1.01: 12 novembre 2000 (Localisation anglais/français)
  4.    $VER: VisuNetlist.AmiCAD 1.01 (© R.Florac, 12/11/2000) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'LANGUAGE'
  12. if result="français.language" then fr=1
  13. else fr=0
  14.  
  15. if fr=1 then 'REQFILE("Netlist à visualiser?", "Travail:AmiCAD/Spice", "*.cir")'
  16. else 'REQFILE("Netlist to display ?", "Work:AmiCAD/Spice", "*.cir")'
  17. f=result
  18. if f='' then exit
  19.  
  20. call edit.rexx(f)
  21. exit
  22.  
  23. /* Traitement des erreurs, interruption du programme */
  24. syntax:
  25. erreur=RC
  26. if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  27. else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  28. exit
  29.  
  30. error:
  31. if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
  32. else 'MESSAGE("Error in line 'SIGL'")'
  33. exit
  34.